home *** CD-ROM | disk | FTP | other *** search
/ The AGA Experience 3 / AGA Experience Volume 3 (1997)(NFA - SAdENESS)[!].iso / software / utilities / comms / amirc1_40 / rexx / wallchop.amirx < prev   
Text File  |  1997-02-24  |  939b  |  41 lines
  1. /* WallChop.AMIRX -- Write a message to all channel operators on a channel
  2. \\ written by Oliver Wagner
  3. // UPDATED BY TROY "DOOGIE" DAVIS (DOOGIE@WSP1.WSPICE.COM), WHO IS
  4. \\ TYPING IN ALL CAPS BECAUSE A CERTAIN HACK MUI PROGRAMMER SEEMED
  5. // TO "FORGET" ABOUT HIS CONTRIBUTION.  ;^)
  6. \\
  7. //
  8. \\ Put this script in PROGDIR:rexx/ and add this as an alias with the
  9. // command:  "/alias wallchop /rx wallchop %p"
  10. \\
  11. */
  12.  
  13. parse arg args
  14. options results
  15.  
  16. if args = "" then do
  17.    'echo P='d2c(27)'b«Error» Usage: /RX WALLCHOP text'
  18.    exit
  19. end
  20.  
  21. ops = ""
  22. getmynick
  23. mynick = RESULT
  24. getchannel
  25. channel = RESULT
  26.  
  27. namevalid = 0
  28. count = 0
  29. do while namevalid = 0
  30.    getuserstate count
  31.    if rc = 5 then break
  32.    if rc = 1 then do
  33.       getuser count
  34.       nick = RESULT
  35.       ops = ops nick
  36.       'RAW PRIVMSG 'nick' :'d2c(2)'[WallChop/'channel']'d2c(2) ARGS
  37.    end
  38.    count = count + 1
  39. end
  40. 'echo P='d2c(27)'b«WallChop» WallChop message sent to:  'strip(ops)
  41.